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400 Atrium—On# Tandy Cantar, Fort Worth, Taxaa 76102 


Problem 

If any of the following synptotns occur the index has been crashed and 
the following Recovery program should be run. 

Unexpected Error Code 64, Line 2850 ("ARS") 

Unexpected Error Code 64, Line 1430 ("ARS") 

Bad Record Number on program line with "dTT" or "PUT" statement 
When sorting, the statement "dcplicate account # 0 exists" spears 
or transactions ^pear under the wrong account - i.e. some transactions for 
account 3 are on account 20's bill, etc. 


In order to correct these above errors please run the following program 
written to reconstruct "CUSINDEX" and "TRANSACT" files of Model I Accounts 
Receivabifi program package; 

Quicker routines can be written, but this was written with the customer in 
mind. This routine will not recapture report numbers nor session numbers. 
It is merely intended to aid in recapturing data files rendered 
inaccessible because the elastomer Index or Transaction files have been 
damaged or scrambled. 

***** This is a last resort. 7UJ. transactions must be checked afterwards 
and verified. This program will pick ip all transactions on the disk, 
including deleted transactions and previous period transactions not yet 
over-written in the current period. 


1. In BASIC type the following program with each line followed by an 
<ENrER> 


(See page 2 for program) 
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1 ' *** RECOVER *** (C) 1981 TANDY CX)RP 

2 ' *** RECOVERS POINTERS/INDEX FOR ACCTS. RECEIVABLE 

3 ' PROGRAM DISK SHOUID BE IN ERIVE 0 , DATA DISK IN DRIVE 1-ON 3 

DRIVE SYSTEMS, SECOND DATA DISK IN DRIVE 2. 

4 ' RECOVER WILL RUN SORT AND RETURN TO ARS ON COMPLETION. 

5 I **** pQR VERSION PRIOR TO 3.J0, LINE 210 MUST BE MODIFIED: CHANGE 

"JD*128ASD$" TO "JD*127ASD$" AND "5ASDE$" TO "4ASDE$" 

10 CLEAR500:DEFINTA-Z:CIS:INPUT"PASSWC«D";P$:INPUT"2 OR 3 DRIVE SYSTEM";S 
20 QOSOB220: OPEN"R", 1 ,PT$: NT=IDF (1) * 8: OPEN" R", 2 ,PD$; NAf=LOF (2) * 2 
30 DIMIR(Nr,2),AC(NA,2):CLS:PRINT@154,"FIRST PASS":PRINT@402,"WORKING ON 
IRANSACTION #" 

40 KK=Nr:FORK=lTONr:GOSUBl80:PRINr@426,K:TR(K,0)=CVI(Vl$) :IFV0$<"A" 

(»V0$> " Z "IHENKK=K:K=Nr 

50 NEXTK:ERINT@154,"SECOND PASS":PRINT®426," ";UfJ=KK:trr=KK-l;U=Ur: 

P0RK=1T0UT: IFTR(K,0)<0'IHENrR(K,0)=-TR(K,0) :U=U-1 
60 PRINT@426,K:NEXT:CLS:PRINT@154,"FIRST PASS":PRINT@404,"WORKING ON 
ACCOUNT #" 

70 FORJ=1TONA:QOSUB200: PRINT@424, J:AC (J,0 )=CVI (DD$): IFAC (J,0 )<1THENP=F+1 

elsecv#=cv#-k:vd(db$ ) 

80 NEXT:TN=a-l:TI=TN-F;JJ=J-l:PRINT@154,"SECOND PASS":PRINT@424," 
U5^Ur+(TR(OT,0)=l) 

90 FORJ=1TOJJ;PRINT@424,J:PT=0:ET=0:AC=AC(J,0) :FORK=1TOUX: 

IFTR(K,0)=ACTHENrR(PT,2 )=K:TR(K,1)=PT:PT=K: IFFT=0IHENFI>=K 
100 NEXrK;AC(J,l)=Fr:AC(J,2)=PT:NEXTJ:CI£:PRINT@402,"RESETriNG TRANSACTION 
POINTERS" 

110 F0RK=1T0UT :GOSOB180: ISETV8$=MKI$ (TR (K, 1)): ISETV9$=MKI$ (TR (K, 2)): 

PUTl, KR: NEXT: CIDSEl 

120 CLS:PRINT@404,"RESErTTING ACCOUNT POINTERS" 

130 PORJ=1TOTN:QOSUB200: ISETDI$=MKI$ (AC(J, 1)): ISETDJ$=MKI$ (AC (J, 2)): 

PUT2, JR: NEXT: CIiOSE2 

140 CLS ;PRINT@410, "WIITING INDEX" :0PEN"0" , 1, "CUSINDEX. "+P$+": 1": 

PRINT#1,TI;TN;F;U;UT;UN;0;1;1;1;1;1;1;1;1;STR$(CV#)+"D0" 

150 PORN=1TOTN-1:CN=N:IFAC(N,0)<1THENCN=-CN 

160 PRINT#1 ,CN;CN;CN: NEXT:CIDSEl:0PEN"0", 1, "IRANSFER: 1":PRINT#1 ,P 1$: 

PRINT#1 ,PD$: PRINT#1 ,PS$: PRINT#1 ,PT$: PRINT#1 ,PG$: CLOSE 
170 CIS:PRINT@410,"SORTING DATA":CLEAR50:RUN"ARSORT" 

180 KR=INT((K-l)/8)+l:KD=K-8*INT((K-l)/8)-l 

190 FIEIDl,KD*31ASVV$,1ASV0$,23ASV1$,2ASV8$,2ASV9$,3ASVX$:GET1,KR:RETURN 
200 JR=INT( (J-l)/2)+l:Jl>=J-2*INT( ( J-l)/ 2)-l 

210 FIELD2,JD*128ASD$,105ASD0$,8ASDB$,4ASDC$,2ASDD$,5ASDE$,2ASDI$,2ASDJ$: 
GET2,JR:RETURN 

220 PT$="‘IRANSACT. "+P$+": "+CHR$ (47+S) :P$=P$+" :1":PI$="CUSINDEX. "+P$: 
PD$="CUSDATA. "+P$:PS$="OUSSETUP. "+P$:PG$="GLFILE. "+P$:RETURN 

2. Type SAVE"REOOVERY" to save the program for later use. 

3. Type RUN and press <ENTER> to start the recovery process. 

4. If the program is ever needed again load it from the disk with 
LOAD"RBOOVERY". 










